home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 31
/
Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso
/
Aminet
/
dev
/
obero
/
OberonAModules.lha
/
WBStart.mod
< prev
next >
Wrap
Text File
|
1999-02-26
|
2KB
|
65 lines
<*STANDARD-*>
MODULE WBStart;
(*
* libraries/wbstart.h V2.2
*
* shared library include file
*
* (c) 1991-1996 Stefan Becker
*
* OberonA Version By Morten Bjergstrøm
* EMail: mbjergstroem@hotmail.com
*)
IMPORT
e:=Exec, u:=Utility, Kernel;
CONST
NAME * = "wbstart.library";
VERSION * = 2;
(* Tags for WBStartTagList() *)
(* Name of the program to start. It is relative to *)
(* directoryName or wbsDirLock. *)
name * = u.user + 1; (* const char * *)
(* Name of a directory. Mutually exclusive to directoryLock *)
directoryName * = u.user + 2; (* const char * *)
(* Lock of a directory. Mutually exclusive to directoryName *)
directoryLock * = u.user + 3; (* BPTR *)
(* Stack size for the new process *)
stack * = u.user + 4; (* ULONG *)
(* Priority for the new process *)
priority * = u.user + 5; (* LONG *)
(* Number of arguments in argumentList *)
argumentCount * = u.user + 6; (* ULONG *)
(* Array of arguments. argumentCount MUST be specified also! *)
argumentList * = u.user + 7; (* struct WBArg * *)
VAR
base -: e.LibraryPtr;
PROCEDURE WBStartTagList * [base,-30] (tags[8] : u.TagListPtr): LONGINT;
PROCEDURE WBStartTags * [base,-30] (tag1[8]..: u.Tag ): LONGINT;
PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
BEGIN (* CloseLib *)
IF base # NIL THEN e.CloseLibrary (base) END
END CloseLib;
BEGIN
base := e.OpenLibrary (NAME, VERSION);
IF base # NIL THEN Kernel.SetCleanup (CloseLib) END;
END WBStart.